home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
BUSINESS
/
SALE24.ARJ
/
RLOCK.PRG
< prev
next >
Wrap
Text File
|
1992-06-01
|
995b
|
37 lines
DO CASE
CASE upper(pb)="EDIT"
IF RLOCK()
** get a new copy of the record
SCATTER MEMVAR MEMO
** display the new copy of the record
SHOW GETS ENABLED
** disable any unique key
SHOW GET m.cu_custid DISABLED
** put the cursor in the company field
_curobj=OBJNUM(m.cu_company)
ELSE
DO l2msg WITH "This customer is currently being "+;
"edited by someone else. Please try again later.",;
"Ok"
ENDIF able to lock the record
** go back to editing the record
RETURN .T.
CASE upper(pb)="SAVE"
** save changes to the already locked record
GATHER MEMVAR MEMO
UNLOCK
** kill the other gets
SHOW GETS DISABLED
** give them a push button to work with
SHOW GET pb ENABLED
CASE upper(pb)="ABORT"
UNLOCK
** kill the other gets
SHOW GETS DISABLED
** give them a push button to work with
SHOW GET pb ENABLED
ENDCASE
RETURN .T.